home *** CD-ROM | disk | FTP | other *** search
- .Key ""
-
- lab GETDRIVE
- echo ""
- echo " Which drive do you want to unpack to? [0,1,2,3] " NOLINE
- failat 20
- skip >NIL: ?
-
- lab 0
- set drive "DF0:"
- skip HAVEDRIVE
- ;
- lab 1
- set drive "DF1:"
- skip HAVEDRIVE
- ;
- lab 2
- set drive "DF2:"
- skip HAVEDRIVE
- ;
- lab 3
- set drive "DF3:"
- skip HAVEDRIVE
- ;
-
- lab HAVEDRIVE
- ask " Do you have a two blank unformatted floppy disks ready?"
- if not WARN
- echo ""
- echo " Try again when you do ..."
- echo " All Done. Click close gadget to get rid of window."
- endcli
- endif
-
- echo ""
- sys:system/format drive $drive name PM_1 NOICONS
- lha -ab64 x PlotMap.lha PM_1:
- copy PlotMap.Doc PM_1:
- copy PlotMap.Doc.info PM_1:
- lha -ab64 x Maps.lha map.limits.bin coast.pnt island.pnt PM_1:
-
- echo ""
- echo ""
- echo " Insert the second blank disk in drive $drive"
- echo ""
- sys:system/format drive $drive name PM_DATA NOICONS
- lha -ab64 x Maps.lha country.pnt state.pnt river.pnt lake.pnt PM_DATA:
-
- echo " All Done. Click close gadget to get rid of window."
- endcli
-
-
- endskip
- echo " Invalid Drive Selection, Please try again!"
- skip back GETDRIVE
-